home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
icon tools
/
deft ii
/
sources
/
locale.e
< prev
next >
Wrap
Text File
|
1996-04-07
|
6KB
|
195 lines
/****************************************************************
This file was created automatically by `FlexCat V1.3'
Do not edit by hand!
****************************************************************/
OPT MODULE
->*****
->** External modules
->*****
MODULE 'locale' , 'libraries/locale'
MODULE 'utility/tagitem'
->*****
->** Object definitions
->*****
EXPORT OBJECT fc_type
PRIVATE
id : LONG
str : LONG
ENDOBJECT
EXPORT OBJECT catalog_DeftII
PUBLIC
msg_DeftII_Error : PTR TO fc_type
msg_Missing_Muimaster_Library : PTR TO fc_type
msg_Missing_Icon_Library : PTR TO fc_type
msg_Missing_Prefs_File : PTR TO fc_type
msg_Wrong_Prefs_File : PTR TO fc_type
msg_OK : PTR TO fc_type
msg_Simple_OK : PTR TO fc_type
msg_DeftII_Request : PTR TO fc_type
msg_Yes_No : PTR TO fc_type
msg_Really_Quit : PTR TO fc_type
msg_Not_Enough_Memory : PTR TO fc_type
msg_Not_Enough_Chip_Memory : PTR TO fc_type
msg_Missing_Library : PTR TO fc_type
msg_Arexx_Port : PTR TO fc_type
msg_Internal_Problem : PTR TO fc_type
msg_About_DeftII : PTR TO fc_type
msg_About_Text : PTR TO fc_type
msg_Wrong_Path_Met : PTR TO fc_type
msg_Unknown_Arexx_Command : PTR TO fc_type
msg_File_Requester_Still_Opened : PTR TO fc_type
msg_AppDescription : PTR TO fc_type
msg_WI_main : PTR TO fc_type
msg_GR_default_tools : PTR TO fc_type
msg_LA_old_def_tool : PTR TO fc_type
msg_LA_new_def_tool : PTR TO fc_type
msg_BT_delete_def_tool : PTR TO fc_type
msg_GR_paths : PTR TO fc_type
msg_BT_delete_path : PTR TO fc_type
msg_LA_info : PTR TO fc_type
msg_TX_info : PTR TO fc_type
msg_GR_controls : PTR TO fc_type
msg_BT_go : PTR TO fc_type
msg_BT_stop : PTR TO fc_type
msg_BT_save_prefs : PTR TO fc_type
msg_BT_about : PTR TO fc_type
msg_BT_quit : PTR TO fc_type
ENDOBJECT
->*****
->** Global variables
->*****
DEF cat_DeftII : PTR TO catalog
->*****
->** Creation procedure for fc_type object
->*****
PROC create( id , str : PTR TO CHAR ) OF fc_type
self.id := id
self.str := str
ENDPROC
->*****
->** Procedure which returns the correct string according to the catalog
->*****
PROC getstr() OF fc_type RETURN ( IF cat_DeftII THEN GetCatalogStr( cat_DeftII , self.id , self.str ) ELSE self.str )
->*****
->** Creation procedure for catalog_DeftII object
->*****
PROC create() OF catalog_DeftII
DEF fct : PTR TO fc_type
cat_DeftII := NIL
self.msg_DeftII_Error := NEW fct.create( 0 , 'Deft II error !' )
self.msg_Missing_Muimaster_Library := NEW fct.create( 1 , 'Can''t open muimaster.library !' )
self.msg_Missing_Icon_Library := NEW fct.create( 2 , 'Can''t open icon.library !' )
self.msg_Missing_Prefs_File := NEW fct.create( 3 , 'Can''t find preference file !' )
self.msg_Wrong_Prefs_File := NEW fct.create( 4 , 'Preference file is corrupted !' )
self.msg_OK := NEW fct.create( 5 , '*_OK' )
self.msg_Simple_OK := NEW fct.create( 6 , 'OK' )
self.msg_DeftII_Request := NEW fct.create( 7 , 'Deft II request !' )
self.msg_Yes_No := NEW fct.create( 8 , '*_Yes|_No' )
self.msg_Really_Quit := NEW fct.create( 9 , '\ecYou have modified the preferences\n' +
'\ecwithout saving the changes...\n' +
'\ecReally quit ?' )
self.msg_Not_Enough_Memory := NEW fct.create( 10 , 'Not enough memory !' )
self.msg_Not_Enough_Chip_Memory := NEW fct.create( 11 , 'Not enough chip memory !' )
self.msg_Missing_Library := NEW fct.create( 12 , 'Can''t open a needed library !' )
self.msg_Arexx_Port := NEW fct.create( 13 , 'Can''t create arexx port !' )
self.msg_Internal_Problem := NEW fct.create( 14 , 'Internal problem !' )
self.msg_About_DeftII := NEW fct.create( 15 , 'About Deft II...' )
self.msg_About_Text := NEW fct.create( 16 , '\ecDeft II is a giftware program.\n' +
'\ecI''m very interested in feedback of any kind.\n' +
'\n' +
'\ecSo don''t hesitate to contact me !\n' +
'\ec(see the doc for more details)\n' +
'\n' +
'\ecLionel Vintenat\n' +
'\ec(e-mail : vintenat@reseau.onecert.fr)' )
self.msg_Wrong_Path_Met := NEW fct.create( 17 , '\ecSome wrong paths were met during scan,\n' +
'\ecthey were removed from the path list.' )
self.msg_Unknown_Arexx_Command := NEW fct.create( 18 , 'Unknown arexx command received !' )
self.msg_File_Requester_Still_Opened := NEW fct.create( 19 , 'Can''t quit : a file requester is still opened !' )
self.msg_AppDescription := NEW fct.create( 20 , 'Program to easily change icon default tooltypes' )
self.msg_WI_main := NEW fct.create( 21 , 'Deft II v1.6, © 1994 Lionel Vintenat' )
self.msg_GR_default_tools := NEW fct.create( 22 , 'Default tools' )
self.msg_LA_old_def_tool := NEW fct.create( 23 , 'Old' )
self.msg_LA_new_def_tool := NEW fct.create( 24 , 'New' )
self.msg_BT_delete_def_tool := NEW fct.create( 25 , '_d Delete' )
self.msg_GR_paths := NEW fct.create( 26 , 'Paths' )
self.msg_BT_delete_path := NEW fct.create( 27 , '_l Delete' )
self.msg_LA_info := NEW fct.create( 28 , 'File' )
self.msg_TX_info := NEW fct.create( 29 , 'Boring...' )
self.msg_GR_controls := NEW fct.create( 30 , 'Deft II controls' )
self.msg_BT_go := NEW fct.create( 31 , '_g GO !!!' )
self.msg_BT_stop := NEW fct.create( 32 , '_s Stop' )
self.msg_BT_save_prefs := NEW fct.create( 33 , '_p Save prefs' )
self.msg_BT_about := NEW fct.create( 34 , '_a About' )
self.msg_BT_quit := NEW fct.create( 35 , '_q Quit' )
ENDPROC
->*****
->** Opening catalog procedure (exported)
->*****
PROC open( loc = NIL : PTR TO locale , language = NIL : PTR TO CHAR ) OF catalog_DeftII
DEF tag , tagarg
self.close()
IF ( localebase AND ( cat_DeftII = NIL ) )
IF language
tag := OC_LANGUAGE
tagarg := language
ELSE
tag:= TAG_IGNORE
ENDIF
cat_DeftII := OpenCatalogA( loc , 'DeftII.catalog' ,
[ OC_BUILTINLANGUAGE , 'english' ,
tag , tagarg ,
OC_VERSION , 5 ,
TAG_DONE ] )
ENDIF
ENDPROC
->*****
->** Closing catalog procedure
->*****
PROC close() OF catalog_DeftII
IF localebase THEN CloseCatalog( cat_DeftII )
cat_DeftII := NIL
ENDPROC
/****************************************************************
End of the automatically created part!
****************************************************************/